home *** CD-ROM | disk | FTP | other *** search
- object frmBatchAdd: TfrmBatchAdd
- Left = 189
- Top = 217
- BorderStyle = bsDialog
- Caption = 'Batch Compressor'
- ClientHeight = 268
- ClientWidth = 504
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnActivate = FormActivate
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 84
- Height = 13
- Caption = 'Files to compress:'
- end
- object Label2: TLabel
- Left = 8
- Top = 160
- Width = 71
- Height = 13
- Caption = 'Archive format:'
- end
- object Label3: TLabel
- Left = 8
- Top = 200
- Width = 63
- Height = 13
- Caption = 'Compression:'
- end
- object Label4: TLabel
- Left = 192
- Top = 160
- Width = 78
- Height = 13
- Caption = 'Output directory:'
- end
- object box: TListBox
- Left = 424
- Top = 80
- Width = 25
- Height = 25
- ItemHeight = 13
- TabOrder = 0
- Visible = False
- end
- object cboArctype: TComboBox
- Left = 8
- Top = 176
- Width = 169
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnChange = cboArctypeChange
- Items.Strings = (
- 'Bh'
- 'Cab'
- 'Lha'
- 'Tar'
- 'Zip')
- end
- object cboComp: TComboBox
- Left = 8
- Top = 216
- Width = 169
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 2
- end
- object edtOutput: TEdit
- Left = 192
- Top = 176
- Width = 193
- Height = 21
- TabOrder = 3
- end
- object Button1: TButton
- Left = 388
- Top = 176
- Width = 21
- Height = 21
- Caption = '...'
- TabOrder = 4
- OnClick = Button1Click
- end
- object btnClose: TButton
- Left = 424
- Top = 208
- Width = 75
- Height = 25
- Caption = 'C&lose'
- TabOrder = 5
- OnClick = btnCloseClick
- end
- object btnComp: TButton
- Left = 424
- Top = 176
- Width = 75
- Height = 25
- Caption = '&Compress'
- TabOrder = 6
- OnClick = btnCompClick
- end
- object List: TdfsExtListView
- Left = 8
- Top = 24
- Width = 401
- Height = 129
- Columns = <
- item
- Caption = 'Name'
- Width = 100
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 100
- end
- item
- Caption = 'Path'
- Width = 196
- end>
- ExtendedStyles = []
- NoColumnResize = False
- ColumnsFormat = <>
- ShowSortArrows = True
- AutoColumnSort = acsSortToggle
- MultiSelect = True
- TabOrder = 7
- ViewStyle = vsReport
- SmallImages = frmMain.sysSmallImages
- end
- object dfsStatusBar1: TdfsStatusBar
- Left = 0
- Top = 249
- Width = 504
- Height = 19
- Panels = <>
- SimplePanel = False
- object pbrAll: TProgressBar
- Left = 0
- Top = 0
- Width = 504
- Height = 19
- Align = alClient
- Min = 0
- Max = 100
- Smooth = True
- Step = 1
- TabOrder = 0
- end
- end
- object btnAdd: TButton
- Left = 424
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Add'
- TabOrder = 9
- OnClick = btnAddClick
- end
- object btnRemove: TButton
- Left = 424
- Top = 40
- Width = 75
- Height = 25
- Caption = '&Remove'
- TabOrder = 10
- OnClick = btnRemoveClick
- end
- object dlgOpen: TOpenDialog
- Filter = 'All files|*.*'
- FilterIndex = 11
- Options = [ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist, ofEnableSizing]
- Left = 424
- Top = 112
- end
- object Browse: TdfsBrowseDirectoryDlg
- Title = 'Please select the output directory.'
- Options = [bfDirectoriesOnly, bfNewDialogStyle]
- StatusText = 'C:\WINDOWS\Desktop'
- Caption = 'Output Folder'
- ShowSelectionInStatus = True
- Left = 456
- Top = 112
- end
- object Lha1: TLha
- OnError = Zip1Error
- DeleteOptions = doAllowUndo
- ArcType = atLha
- CompressMethod = cmFrozen6
- DefaultExt = '.lha'
- RecurseDirs = False
- Switch = swAdd
- TempDir = 'c:\windows\TEMP\'
- Left = 272
- Top = 200
- end
- object Zip1: TZip
- OnError = Zip1Error
- DeleteOptions = doAllowUndo
- ArcType = atZip
- CompressMethod = cmDeflate
- DefaultExt = '.zip'
- LeaveSpaceOnFirstDisk = 0
- RecurseDirs = False
- StoreAlreadyCompressedFiles = False
- Switch = swAdd
- TempDir = 'c:\windows\TEMP\'
- OnReplaceFile = Zip1ReplaceFile
- Left = 336
- Top = 200
- end
- object MakeCAB1: TMakeCab
- OnError = Zip1Error
- DeleteOptions = doAllowUndo
- ArcType = atCab
- DefaultExt = '.cab'
- CompressMethod = cmMsZip
- RecurseDirs = False
- TempDir = 'c:\windows\TEMP\'
- Left = 240
- Top = 200
- end
- object Tar1: TTar
- OnError = Zip1Error
- DeleteOptions = doAllowUndo
- ArcType = atTar
- DefaultExt = '.tar'
- CompressMethod = cmGzipTar
- Switch = swAdd
- RecurseDirs = False
- TempDir = 'c:\windows\TEMP\'
- UnixUName = 'root'
- UnixGName = 'root'
- Left = 304
- Top = 200
- end
- object FormCenter1: TFormCenter
- Center = True
- Left = 464
- Top = 144
- end
- object BlakHole1: TBlakHole
- OnError = Zip1Error
- DeleteOptions = doAllowUndo
- ArcType = atBh
- CompressMethod = cmFuse
- DefaultExt = '.bh'
- RecurseDirs = False
- Switch = swAdd
- TempDir = 'c:\windows\TEMP\'
- Left = 368
- Top = 200
- end
- end
-